-- background: 9098 from stack: in
-- bmap block id: 10542
-- flags: 0000
-- background id: 0
-- name: Experiment 1 


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=428 top=38 right=69 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Menu


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=428 top=119 right=150 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: parameter


-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=428 top=293 right=328 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  show card field "help"
  wait until the mouse is down
  hide card field "help"
end mouseUp


-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=428 top=160 right=289 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blurb
----- HyperTalk script -----
on mouseUp
  global cardClear1,dropHeight1

  if cardClear1 is true then runExperiment
  else
    clearCardGraphics
    set the loc of button "electromagnet" to 20,(271-dropHeight1)
    set the loc of button "ball" to 20,(300-dropHeight1)
    put "Press this field to begin tracing the path of the ball." into me
    put true into cardClear1
    pass mouseUp
  end if
end mouseUp